(XLISP::CHECK-FSL-VERSION 1 4)
#K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(SAVE-CURRENT-WORKSPACE #K(#(77 1 1 1 4 4 0 1 2 3 0 23 5 0 2 5 4 49 6 3 0 23 7 0 0 23 8 0 0 23 9 0 1 5 25 10 0 2 1 2) #(0) #("Current" 9 "~%; SAVE CURRENT WORKSPACE~2%" T #("xlisp.wks") FORMAT *VISTA-START-CASE* SETUP-INSTALL-VISTA UPDATE-INSTALLATION-INFO INSTALLATION-SUMMARY SAVE-VISTA-WORKSPACE) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)
#K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(SAVE-DEFAULT-WORKSPACE #K(#(77 1 1 1 5 5 0 1 2 3 4 0 23 6 0 2 6 5 49 7 4 0 23 8 0 0 23 9 0 0 23 10 0 0 23 11 0 0 23 12 0 0 49 13 3 0 49 14 6 0 23 15 0 1 6 25 16 0 2 1 2) #(0) #("Default" -2 9 "~%; SAVE DEFAULT WORKSPACE~2%" T #("xlisp.wks") FORMAT *VISTA-START-CASE* SETUP-INSTALL-VISTA SET-VISTA-PRO-VERSION SET-DEFAULT-INSTALL UPDATE-INSTALLATION-INFO DEFINE-VISTA-PATHS *RUN-NUMBER* *INITIAL-INSTALL* INSTALLATION-SUMMARY SAVE-VISTA-WORKSPACE) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)
#K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(SAVE-CUSTOM-WORKSPACE #K(#(77 1 1 1 5 5 0 1 2 3 4 1 51 1 7 1 1 23 6 0 2 6 7 23 7 0 2 5 4 49 8 3 0 49 9 5 0 49 10 2 0 23 11 0 0 25 12 0 0 80 2 1 13 0 25 14 0 2 1 2) #(0 49) #(-2 1 "~%; SAVE CUSTOM WORKSPACE~2%" T DISPOSE #("xlisp.wks") XLISP::INSTALL-FUNCTION FORMAT *VISTA-START-CASE* *INITIAL-INSTALL* *RUN-NUMBER* SETUP-INSTALL-VISTA DO-VISTA-INSTALLATION-HYPERLOG "Custom" SAVE-VISTA-WORKSPACE) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)
#K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(RUN-CURRENT-VISTA #K(#(80 1 4 0 1 2 3 0 23 4 0 2 4 3 49 5 2 0 23 6 0 1 4 23 7 0 0 25 8 0 1 1) #(0) #("statinit" 9 "~%; RUN CURRENT WORKSPACE~2%" T FORMAT *VISTA-START-CASE* INSTALLATION-SUMMARY START-VISTA LOAD) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)
#K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(RUN-DEFAULT-VISTA #K(#(80 1 4 0 1 2 3 0 23 4 0 2 4 3 49 5 2 0 23 6 0 0 23 7 0 0 23 8 0 0 23 9 0 0 23 10 0 0 23 11 0 1 4 23 12 0 0 25 13 0 1 1) #(0) #("statinit" 9 "~%; RUN DEFAULT WORKSPACE~2%" T FORMAT *VISTA-START-CASE* SETUP-INSTALL-VISTA SET-VISTA-PRO-VERSION SET-DEFAULT-INSTALL UPDATE-INSTALLATION-INFO DEFINE-VISTA-PATHS INSTALLATION-SUMMARY START-VISTA LOAD) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)
#K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(RUN-CUSTOM-VISTA #K(#(80 1 4 0 1 2 3 1 51 1 5 0 23 4 0 2 4 5 23 5 0 2 3 2 49 6 1 0 23 7 0 0 25 8 0 0 80 1 1 9 0 23 10 0 0 25 11 0 1 1) #(0 36) #(9 "~%; RUN CUSTOM WORKSPACE~2%" T DISPOSE XLISP::INSTALL-FUNCTION FORMAT *VISTA-START-CASE* SETUP-INSTALL-VISTA DO-VISTA-INSTALLATION-HYPERLOG "statinit" START-VISTA LOAD) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("Args: none - Installs vista in local environment
1 setup installation
2 do installation hyperlog" FUNCTION-DOCUMENTATION INSTALL-VISTA %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(INSTALL-VISTA #K(#(80 1 0 0 23 0 0 0 25 1 0 0) #(0) #(SETUP-INSTALL-VISTA DO-VISTA-INSTALLATION-HYPERLOG) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("Args: none
Sets up the installation
1 open install.log and print header 
2 construct paths for initial installation on local machine using ini file
3 check that *initial-install* is t (set in make-distribution)
4 set *pro-version* to t if this is *devel-version*
5 never change *devel-version* except by reading from devel files
6 optionally, display vista flying logo" FUNCTION-DOCUMENTATION SETUP-INSTALL-VISTA %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(SETUP-INSTALL-VISTA #K(#(80 1 8 0 1 2 3 4 5 6 7 2 23 8 0 0 23 9 0 2 8 7 23 10 9 0 23 11 9 2 9 6 49 12 9 0 23 10 9 0 38 13 10 23 11 9 2 9 10 49 14 9 0 23 15 9 0 16 9 10 49 16 10 0 71 2 2 9 10 49 17 10 0 71 3 4 9 10 49 18 10 0 23 19 10 1 9 49 20 10 0 23 21 9 1 9 49 22 9 0 23 23 0 0 23 24 0 1 8 23 25 0 0 38 26 9 21 0 1 2 9 49 27 8 0 1 3 49 27 3 0 38 26 9 23 9 0 3 8 5 9 38 27 9 23 9 0 3 8 4 9 38 28 9 21 0 4 5 9 23 29 0 0 23 30 0 1 1 38 27 9 21 0 6 9 9 23 31 0 1 2 49 32 3 0 49 33 3 0 49 34 3 0 38 28 9 21 0 7 8 9 38 35 9 38 36 10 25 37 0 2 9 10 11 0 3 11 0 3) #(0 121 127 131 159 168 176 201 213 216) #(60 "prefs\\verbose.lsp" NIL "~%; pro   version~%; *pro-version* ~a~%" "~%; devel version~%; *devel-version* ~a~%" "\\wxls32.ini" "~%ViSta Installation Log~2%" T UPDATE-INSTALLATION-INFO FORMAT GET-WORKING-DIRECTORY STRCAT *INI-FILE* *SEPARATOR* *STARTUP-PATH* GET-INI-PATHS *XLIB-PATH* *LIB-PATH* *USER-PATH* FOURTH *PREFS-PATH* FIFTH *SYSTEM-PATH* DEFINE-VISTA-PATHS VERBOSE READ-DEVEL-FILES *DEVEL-VERSION* *PRO-VERSION* *SHOW-INSTALL-LOGO* DISPLAY-LOGO PAUSE LOAD *SHOW-FLYING-LOGO* *SHOW-ZOOMING-DESKTOP* *SHOW-FLYING-EXIT-LOGO* *LOGO* :SET-NO-ANIMATION SEND) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(DO-VISTA-INSTALLATION-HYPERLOG #K(#(80 1 2 0 1 3 38 2 3 21 0 1 2 3 38 3 4 38 4 5 23 5 4 2 4 5 49 6 4 0 38 3 4 38 4 5 23 5 0 4 4 5 1 1 25 7 0 0) #(0 14 44) #(3000 NIL *SHOW-INSTALL-LOGO* *LOGO* :LOCATION SEND *LOGO-LOCATION* VISTA-INSTALLATION-HYPERLOG) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)
#K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(DEFAULT-INSTALL-VISTA #K(#(80 1 0 0 23 0 0 0 23 1 0 0 23 2 0 0 23 3 0 0 23 4 0 0 25 5 0 0) #(0) #(SETUP-INSTALL-VISTA SET-VISTA-PRO-VERSION SET-DEFAULT-INSTALL UPDATE-INSTALLATION-INFO DEFINE-VISTA-PATHS START-VISTA) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)
#K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(UPDATE-INSTALLATION-INFO #K(#(80 1 10 0 1 2 3 4 5 6 7 8 9 3 38 10 11 61 112 11 11 49 10 11 0 38 11 11 38 10 12 23 12 12 3 10 9 12 23 13 11 3 11 8 12 49 14 11 0 38 14 11 49 15 11 0 23 16 0 0 23 17 0 3 10 7 6 23 18 11 0 49 19 11 0 39 12 11 38 19 12 23 20 13 3 5 4 3 23 21 12 2 12 13 23 22 11 4 11 10 2 12 49 19 11 0 38 14 11 38 23 12 38 19 13 25 12 0 5 6 1 11 12 13) #(0) #("ViSta ID:  ~a~%Built:     ~a~%Installed: ~a~2%" "~a ~a ~a" 1 0 2 T 3 "." "~a" NIL *LOCAL-INSTALL-NUMBER* *VISTA-ID-NUMBER* FORMAT STRCAT *LOCAL-VISTA-ID-NUMBER* *VISTA-ID* MAKE-VISTA-COPYRIGHT VISTA-COPYRIGHT DATE-TIME *INSTALL-DATE* LIST SELECT APPLY *BUILD-DATE*) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)
#K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(START-VISTA #K(#(77 1 1 1 3 3 0 1 2 4 49 4 4 0 49 5 3 0 49 6 3 0 49 7 2 0 49 8 2 0 49 9 3 0 49 10 2 0 49 11 2 0 49 12 3 0 21 0 1 2 1 39 13 5 38 14 6 38 15 7 38 16 8 23 17 0 4 5 6 7 8 38 14 5 23 18 0 1 5 49 19 4 0 49 20 3 0 38 21 5 21 0 3 4 5 49 22 3 0 49 23 3 0 49 24 3 0 23 25 0 0 25 26 0 1 3) #(0 51 79 95 107) #(T NIL 0 #(NIL) *BORDER-STYLE* *DESKTOP-DATASHEET* *VV* *VERSION6* *INITIAL-DATASHEET* *FREE-DATASHEETS* *FREE-TEXT-WINDOWS* *NI* *VISIBLE-STARTUP* SEND *LOGO* :LOCATION *LOGO-LOCATION* APPLY FADE-SPLASH-SCREEN *RUN-NUMBER* *INITIAL-INSTALL* *PRO-VERSION* *SHOW-FLYING-LOGO* *SHOW-ZOOMING-DESKTOP* *SHOW-FLYING-EXIT-LOGO* WRITE-PREFLOAD-FILE VERBOSE) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("Arg: wks-type (default 0)
Saves vista workspace (using name xlisp.wks) in current directory. Will be a LOCAL INSTALL workspace if wks-type=0 or a DEVELOPER-INSTALL if wks-type=1" FUNCTION-DOCUMENTATION SAVE-VISTA-WORKSPACE %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(SAVE-VISTA-WORKSPACE #K(#(77 1 1 2 5 5 0 1 2 3 4 2 23 6 0 0 23 7 0 0 23 8 8 0 23 9 0 4 7 6 2 8 38 10 8 38 11 9 23 9 0 4 7 5 8 9 23 12 0 1 4 23 9 8 3 4 3 2 23 13 0 1 8 25 14 0 1 1) #(0) #("ViSta ~a WorkSpace Saved.~%Click OK. Then Rerun ViSta." NIL "ViSta ID ~a~%Built    ~a~2%" "~%; Saving ViSta ~a WorkSpace: ~a\\xlisp.wks~2%" T #("xlisp.wks" "Installation") TERPRI VISTA-COPYRIGHT GET-WORKING-DIRECTORY FORMAT *VISTA-ID-NUMBER* *BUILD-DATE* DOUBLE-DRIBBLE MESSAGE-DIALOG SAVE-WORKSPACE) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 2 0 1 1 23 2 3 1 2 21 0 1 2 3 38 1 3 1 3 0 1 3 49 3 3 0 57 0) #(0 16 21 24) #(NIL *SSSST-4ST* BOUNDP *NET-INSTALL*) 0 NIL)
#K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(WORKSPACE-TYPE #K(#(77 1 1 1 21 22 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 9 18 19 20 15 21 0 1 2 1 49 22 1 0 38 22 24 23 23 24 2 24 2 49 24 24 0 38 25 24 21 0 3 4 24 0 3 24 1 5 0 11 24 23 26 24 4 23 22 21 24 23 27 24 2 20 24 38 28 25 38 29 26 38 25 27 21 0 6 7 27 0 4 27 1 8 0 11 27 23 26 27 4 19 18 17 27 23 27 27 2 20 27 38 30 28 38 31 29 23 26 30 4 16 15 14 13 23 27 30 2 20 30 38 32 31 38 25 32 21 0 9 10 32 23 26 32 4 5 5 5 5 1 11 23 26 32 3 5 5 5 38 33 33 38 34 34 23 26 35 1 12 23 26 35 1 35 38 35 36 23 36 37 2 11 10 38 37 38 25 38 0 19 24 25 9 26 27 28 8 29 30 31 32 33 7 34 35 36 37 38 6) #(0 34 51 59 64 67 95 100 103 148 158 165) #("\\" "   NET INSTALL  " "The new make of ViSta is saved in a form suitable 
for downloading from the net." (CONTINUE) "Click HELP for help using this dialog" (SEND *VISTA-HYPERLOG* :GET-INI-LOC-HELP) "ViSta - The Visual Statistics System" "ViSta's new workspace is ready. Choose type of installation:" "____________________________________________________________" NIL HELP (WHEN *NET-INSTALL* (PROGN (SETF *VISTA-START-CASE* 1) (WRITE-PREFLOAD-FILE *MAKE-DISTRIBUTION*) (MESSAGE-DIALOG "UNLOCALIZED NET INSTALL MADE") (SAVE-WORKSPACE "xlisp.wks"))) (PROGN (SETF *VISTA-START-CASE* 0) (WRITE-PREFLOAD-FILE *MAKE-DISTRIBUTION*) (COND ((PROBE-FILE "xlisp.bak") (RENAME-FILE "xlisp.bak" "xlisp.wks") (FORMAT T "; renamed xlisp.bak -> xlisp.wks ~%") (MESSAGE-DIALOG "OLD INSTALL KEPT")) (T (MESSAGE-DIALOG (FORMAT T "; statinit: no xlisp.bak or xlisp.wks file. sol")))) (EXIT)) (PROGN (SETF *VISTA-START-CASE* 9) (WRITE-PREFLOAD-FILE *MAKE-DISTRIBUTION*) (INSTALL-VISTA-HYPERLOG)) (PROGN (SETF *VISTA-START-CASE* 9) (DEFAULT-INSTALL-VISTA)) "The new make of ViSta is not installed." "You will see the user's hyperlog boxes so you can 
custom install the new make of ViSta on this machine." "Default Options are used to install the new make of 
ViSta on this machine" "KEEP OLD INSTALL" " CUSTOM INSTALL " "DEFAULT INSTALL " #(NIL) *PREFS-DIR-NAME* STRCAT *PREFS-PATH* *NET-INSTALL* LIST REMOVE :HEADER :BUTTON-TEXT :TITLE :LINKS :ACTION :HELP :LAYOUT :DIVIDER FORMAT :FOOTER BUTTON-HYPER-DIALOG) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)
